home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / games / astrw117.zip / MSDETCT2.INC < prev    next >
Text File  |  1993-12-22  |  17KB  |  523 lines
  1. '**************************************************************************
  2. '*************************  Setup Detect API's  ***************************
  3. '**************************************************************************
  4.  
  5. ''detect
  6.  
  7. DECLARE FUNCTION CbGetVersionOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  8. DECLARE FUNCTION LGetVersionNthField LIB "msdetstf.dll" (szVersion$, nField%) AS LONG
  9. DECLARE FUNCTION LcbGetSizeOfFile LIB "msdetstf.dll" (szFile$) AS LONG
  10. DECLARE FUNCTION FGetValidDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  11. DECLARE FUNCTION FGetLocalHardDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  12. DECLARE FUNCTION FGetRemovableDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  13. DECLARE FUNCTION FGetNetworkDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  14. DECLARE FUNCTION LcbTotalDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  15. DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  16. DECLARE FUNCTION FIsValidDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  17. DECLARE FUNCTION FIsLocalHardDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  18. DECLARE FUNCTION FIsRemoveDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  19. DECLARE FUNCTION FIsRemoteDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  20. DECLARE FUNCTION FDirExists LIB "msdetstf.dll" (szDir$) AS INTEGER
  21. DECLARE FUNCTION FDoesFileExist LIB "msdetstf.dll" (szFileName$, mode%) AS INTEGER
  22. DECLARE FUNCTION CbGetDateOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  23. DECLARE FUNCTION FDoesIniSectionExist LIB "msdetstf.dll" (szFile$, szSect$) AS INTEGER
  24. DECLARE FUNCTION FDoesIniKeyExist LIB "msdetstf.dll" (szFile$, szSect$, szKey$) AS INTEGER
  25. DECLARE FUNCTION CbGetIniKeyString LIB "msdetstf.dll" (szFile$, szSect$, szKey$, szBuf$, cbBuf%) AS INTEGER
  26. DECLARE FUNCTION WGetDOSMajorVersion LIB "msdetstf.dll" AS INTEGER
  27. DECLARE FUNCTION WGetDOSMinorVersion LIB "msdetstf.dll" AS INTEGER
  28. DECLARE FUNCTION CbGetEnvVariableValue LIB "msdetstf.dll" (szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  29. DECLARE FUNCTION CbFindTargetOnEnvVar LIB "msdetstf.dll" (szFile$, szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  30. DECLARE FUNCTION CbFindFileInTree LIB "msdetstf.dll" (szFile$, szDir$, szBuf$, cbBuf%) AS INTEGER
  31. DECLARE FUNCTION GetTypeFaceNameFromTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  32. DECLARE FUNCTION GetExistingFOTFileForTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  33.  
  34.  
  35.  
  36. '*************************************************************************
  37. '****************  Detect Basic Wrapper Declarations  ********************
  38. '*************************************************************************
  39.  
  40.  
  41. '' detect
  42.  
  43. DECLARE FUNCTION IsDriveValid (szDrive$) AS INTEGER
  44. DECLARE FUNCTION IsDriveLocalHard (szDrive$) AS INTEGER
  45. DECLARE FUNCTION IsDriveRemovable (szDrive$) AS INTEGER
  46. DECLARE FUNCTION IsDriveNetwork (szDrive$) AS INTEGER
  47. DECLARE SUB GetValidDrivesList (szSymbol$)
  48. DECLARE SUB GetLocalHardDrivesList (szSymbol$)
  49. DECLARE SUB GetRemovableDrivesList (szSymbol$)
  50. DECLARE SUB GetNetworkDrivesList (szSymbol$)
  51. DECLARE FUNCTION GetTotalSpaceForDrive (szDrive$) AS LONG
  52. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  53.  
  54. DECLARE FUNCTION GetDOSMajorVersion AS INTEGER
  55. DECLARE FUNCTION GetDOSMinorVersion AS INTEGER
  56. DECLARE FUNCTION GetEnvVariableValue (szEnvVar$) AS STRING
  57. DECLARE FUNCTION GetNumWinApps AS INTEGER
  58.  
  59. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  60. DECLARE FUNCTION GetDateOfFile (szFile$) AS STRING
  61. DECLARE FUNCTION GetYearFromDate (szDate$) AS INTEGER
  62. DECLARE FUNCTION GetMonthFromDate (szDate$) AS INTEGER
  63. DECLARE FUNCTION GetDayFromDate (szDate$) AS INTEGER
  64. DECLARE FUNCTION GetHourFromDate (szDate$) AS INTEGER
  65. DECLARE FUNCTION GetMinuteFromDate (szDate$) AS INTEGER
  66. DECLARE FUNCTION GetSecondFromDate (szDate$) AS INTEGER
  67. DECLARE FUNCTION GetVersionOfFile (szFile$) AS STRING
  68. DECLARE FUNCTION GetVersionNthField (szVersion$, nField%) AS LONG
  69. DECLARE FUNCTION GetSizeOfFile (szFile$) AS LONG
  70. DECLARE FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) AS STRING
  71. DECLARE FUNCTION FindFileInTree (szFile$, szDir$) AS STRING
  72. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  73.  
  74. DECLARE FUNCTION DoesIniSectionExist (szFile$, szSect$) AS INTEGER
  75. DECLARE FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) AS INTEGER
  76. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  77.  
  78. '*************************************************************************
  79. FUNCTION IsDriveValid (szDrive$) STATIC  AS INTEGER
  80. '$ifdef DEBUG
  81.     if FValidDrive(szDrive$) = 0 then
  82.         BadArgErr 1, "IsDriveValid", szDrive$
  83.     end if
  84. '$endif ''DEBUG
  85.     IsDriveValid = FIsValidDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  86. END FUNCTION
  87.  
  88.  
  89. '*************************************************************************
  90. FUNCTION IsDriveLocalHard (szDrive$) STATIC  AS INTEGER
  91. '$ifdef DEBUG
  92.     if FValidDrive(szDrive$) = 0 then
  93.         BadArgErr 1, "IsDriveLocalHard", szDrive$
  94.     end if
  95. '$endif ''DEBUG
  96.     IsDriveLocalHard = FIsLocalHardDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  97. END FUNCTION
  98.  
  99.  
  100. '*************************************************************************
  101. FUNCTION IsDriveRemovable (szDrive$) STATIC  AS INTEGER
  102. '$ifdef DEBUG
  103.     if FValidDrive(szDrive$) = 0 then
  104.         BadArgErr 1, "IsDriveRemovable", szDrive$
  105.     end if
  106. '$endif ''DEBUG
  107.     IsDriveRemovable = FIsRemoveDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  108. END FUNCTION
  109.  
  110.  
  111. '*************************************************************************
  112. FUNCTION IsDriveNetwork (szDrive$) STATIC  AS INTEGER
  113. '$ifdef DEBUG
  114.     if FValidDrive(szDrive$) = 0 then
  115.         BadArgErr 1, "IsDriveNetwork", szDrive$
  116.     end if
  117. '$endif ''DEBUG
  118.     IsDriveNetwork = FIsRemoteDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  119. END FUNCTION
  120.  
  121.  
  122. '*************************************************************************
  123. FUNCTION GetTotalSpaceForDrive (szDrive$) STATIC  AS LONG
  124. '$ifdef DEBUG
  125.     if FValidDrive(szDrive$) = 0 then
  126.         BadArgErr 1, "GetTotalSpaceForDrive", szDrive$
  127.     end if
  128. '$endif ''DEBUG
  129.     GetTotalSpaceForDrive = LcbTotalDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  130. END FUNCTION
  131.  
  132.  
  133. '*************************************************************************
  134. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  135. '$ifdef DEBUG
  136.     if FValidDrive(szDrive$) = 0 then
  137.         BadArgErr 1, "GetFreeSpaceForDrive", szDrive$
  138.     end if
  139. '$endif ''DEBUG
  140.     GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  141. END FUNCTION
  142.  
  143.  
  144. '*************************************************************************
  145. SUB GetValidDrivesList (szSymbol$) STATIC
  146. '$ifdef DEBUG
  147.     if szSymbol$ = "" then
  148.         BadArgErr 1, "GetValidDrivesList", szSymbol$
  149.     end if
  150. '$endif ''DEBUG
  151.     if FGetValidDrivesList(szSymbol$) = 0 then
  152. '$ifdef DEBUG
  153.         StfApiErr saeFail, "GetValidDrivesList", szSymbol$
  154. '$endif ''DEBUG
  155.         ERROR STFERR
  156.     end if
  157. END SUB
  158.  
  159.  
  160. '*************************************************************************
  161. SUB GetLocalHardDrivesList (szSymbol$) STATIC
  162. '$ifdef DEBUG
  163.     if szSymbol$ = "" then
  164.         BadArgErr 1, "GetLocalHardDrivesList", szSymbol$
  165.     end if
  166. '$endif ''DEBUG
  167.     if FGetLocalHardDrivesList(szSymbol$) = 0 then
  168. '$ifdef DEBUG
  169.         StfApiErr saeFail, "GetLocalHardDrivesList", szSymbol$
  170. '$endif ''DEBUG
  171.         ERROR STFERR
  172.     end if
  173. END SUB
  174.  
  175.  
  176. '*************************************************************************
  177. SUB GetRemovableDrivesList (szSymbol$) STATIC
  178. '$ifdef DEBUG
  179.     if szSymbol$ = "" then
  180.         BadArgErr 1, "GetRemovableDrivesList", szSymbol$
  181.     end if
  182. '$endif ''DEBUG
  183.     if FGetRemovableDrivesList(szSymbol$) = 0 then
  184. '$ifdef DEBUG
  185.         StfApiErr saeFail, "GetRemovableDrivesList", szSymbol$
  186. '$endif ''DEBUG
  187.         ERROR STFERR
  188.     end if
  189. END SUB
  190.  
  191.  
  192. '*************************************************************************
  193. SUB GetNetworkDrivesList (szSymbol$) STATIC
  194. '$ifdef DEBUG
  195.     if szSymbol$ = "" then
  196.         BadArgErr 1, "GetNetworkDrivesList", szSymbol$
  197.     end if
  198. '$endif ''DEBUG
  199.     if FGetNetworkDrivesL